home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbtext.dxr / 00026_save icon.ls < prev    next >
Encoding:
Text File  |  2000-01-18  |  503 b   |  23 lines
  1. property ancestor
  2. global gDBTextVarList
  3.  
  4. on new me, buttonName, castName, xSprite, xLoc, descendant
  5.   ancestor = new(script("generic button"), buttonName, castName, xSprite, xLoc, me)
  6.   return me
  7. end
  8.  
  9. on performFunction me
  10.   tell the stage
  11.     playSFX(5)
  12.   end tell
  13.   MyObj = getaProp(gDBTextVarList, GetObjProp())
  14.   repeat while soundBusy(1)
  15.   end repeat
  16.   save(MyObj)
  17. end
  18.  
  19. on buttonLoc me, size
  20.   set the loc of sprite the pChannel of me to getAt([me.pStageLoc, point(613, 18)], size)
  21.   return me
  22. end
  23.